home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Cinema 4D GO demo / Plugin / Editor / SetUndo.cof < prev   
Encoding:
Text File  |  1998-03-16  |  403 b   |  24 lines  |  [TEXT/ttxt]
  1. // Set Undo Depth
  2. // (c) Christian Losch 1997
  3. // Maxon Computer GmbH
  4.  
  5. Function(doc)
  6. {
  7.     var d = new(SimpleDialog);
  8.  
  9.     d->SetTitle("Set Undo Depth");
  10.  
  11.     d->SetData(0,"Depth",FIELD_INTEGER,1,100,10);
  12.  
  13.     if (!d->DoDialog()) return FALSE;
  14.  
  15.     doc->SetUndoDepth(d->GetData(0));
  16.     doc->SendMessage(DOCUMENT_CHANGED);
  17.     return TRUE;
  18. }
  19.  
  20.  
  21. main()
  22. {
  23.     RegisterMenuHook("Set Undo Depth","Function");
  24. }